inherited Frmtd_unitgroupModal_List: TFrmtd_unitgroupModal_List
  Left = 495
  Top = 282
  Caption = #21333#20301#32452
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object cxGroupBox1: TcxGroupBox
    Left = 0
    Top = 0
    Align = alClient
    TabOrder = 0
    DesignSize = (
      548
      329)
    Height = 329
    Width = 548
    object cxGrid1: TcxGrid
      Left = 2
      Top = 17
      Width = 335
      Height = 310
      Align = alLeft
      TabOrder = 0
      ExplicitTop = 5
      ExplicitHeight = 286
      object cxGrid1DBTableView1: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = DS_unitgroupMst
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Footer = MainDM.bsTitle
        Styles.Header = MainDM.bsTitle
        Styles.Selection = MainDM.bsSelect
        object Code: TcxGridDBColumn
          Caption = #32534#30721
          DataBinding.FieldName = 'Code'
          HeaderAlignmentHorz = taCenter
          Width = 69
        end
        object Name: TcxGridDBColumn
          Caption = #21517#31216
          DataBinding.FieldName = 'Name'
          HeaderAlignmentHorz = taCenter
          Width = 107
        end
        object Remark: TcxGridDBColumn
          Caption = #22791#27880
          DataBinding.FieldName = 'Remark'
          HeaderAlignmentHorz = taCenter
          Width = 130
        end
      end
      object cxGrid1Level1: TcxGridLevel
        GridView = cxGrid1DBTableView1
      end
    end
    object btnAppend: TcxButton
      Left = 349
      Top = 33
      Width = 97
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26032#22686
      TabOrder = 1
      OnClick = btnAppendClick
    end
    object btnEdit: TcxButton
      Left = 349
      Top = 70
      Width = 97
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20462#25913
      TabOrder = 2
      OnClick = btnEditClick
    end
    object btnSure: TcxButton
      Left = 349
      Top = 203
      Width = 97
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #30830#23450
      Default = True
      TabOrder = 3
      OnClick = btnSureClick
    end
    object btnCancel: TcxButton
      Left = 349
      Top = 240
      Width = 97
      Height = 25
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = #21462#28040
      TabOrder = 4
      OnClick = btnCancelClick
    end
  end
  object Qry_unitgroupMst: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_UNITGROUPMST(GroupId,'
      'Code,'
      'Name,'
      'Remark'
      ')'
      'Values'
      '(:GroupId,'
      ':Code,'
      ':Name,'
      ':Remark)')
    SQLDelete.Strings = (
      'Delete from TD_UNITGROUPMST where GroupId=:OLD_GroupId')
    SQLUpdate.Strings = (
      'Update TD_UNITGROUPMST set '
      'GroupId=:GroupId,'
      'Code=:Code,'
      'Name=:Name,'
      'Remark=:Remark'
      ' where GroupId=:OLD_GroupId')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitgroupMst')
    CachedUpdates = True
    OnNewRecord = Qry_unitgroupMstNewRecord
    Left = 40
    Top = 40
    object Qry_unitgroupMstGroupId: TIntegerField
      FieldName = 'GroupId'
    end
    object Qry_unitgroupMstCode: TStringField
      FieldName = 'Code'
    end
    object Qry_unitgroupMstName: TStringField
      FieldName = 'Name'
    end
    object Qry_unitgroupMstRemark: TStringField
      FieldName = 'Remark'
      Size = 50
    end
  end
  object DS_unitgroupMst: TDataSource
    DataSet = Qry_unitgroupMst
    Left = 40
    Top = 96
  end
end
